Amiga Collections: Taifun/Taifun 038 (1987-11-15)(Ossowski, Stefan)(DE)(PD).zip/Taifun 038 (1987-11-15)(Ossowski, Stefan)(DE)(PD).adf/BasicProgs/Freud

Text File | 1989-01-18 | 27KB | 753 lines

SCREEN 2,640,200,2,2
WINDOW 2,"       FREUDIAN PERSONALITY ANALYSIS - a shareware program by George Trepal",,16,2

DIM a%(48)
FOR j=1 TO 48
a%(j)=0
NEXT
C=1
WIDTH 80
LOCATE 2,1
PRINT  SPACE$(31)"FREUDIAN ANALYSIS"
PRINT
PRINT  SPACE$(22)"A shareware program by George Trepal
PRINT  SPACE$(32)"2650 Alturas Road"
PRINT  SPACE$(28)"Bartow   Florida   33830"
PRINT
PRINT SPACE$(19)"All contributions are welcome (and needed!)"
PRINT
PRINT
PRINT  "        This is a multiple choice test of 48 questions.  There are no"
PRINT  "     right or wrong answers.  Pick the answer that comes closest to how"
PRINT  "     you'd act or feel.  You may have to use your imagination for some"
PRINT  "     questions."
PRINT  "        Please don't read the explanatory documentation before you take"
PRINT  "     the test since it might bias your score."
PRINT  "        It's OK to give this program or charge a small distribution fee"
PRINT  "     but it may not be sold.  Copyright 1987 to George Trepal."
PRINT
PRINT SPACE$(25)"PRESS ANY KEY TO START THE TEST."
GetS:
     IF INKEY$ = "" THEN GetS
     CLS

QA:
GOSUB GetAnswer
  PRINT "  On a new job you give your first written report to your new boss."
  PRINT "  You feel:"
  PRINT
  PRINT "  f1) that your boss will be pleased by your excellent work."
  PRINT "  f3) afraid that your first try won't be good enough."
  PRINT "  f5) a bit of anger or resentment that anyone should judge you. in fact your"
  PRINT "      boss might have less ability than you."
GOTO  NextQues

QB:
GOSUB GetAnswer
  PRINT "      Sex manuals place a good deal of emphasis on foreplay.  You feel:"
  PRINT
  PRINT "  f5) some resentment since this puts an unfair responsibility on you.  People"
  PRINT "      should be responsible for their own orgasms and pleasures."
  PRINT "  f3) nervous and a little anxious since it's your responsibility to do
  PRINT "      everything right."
  PRINT "  f1) this is fine since it will bring more pleasure and possibly open new"
  PRINT "      avenues of enjoyment."
GOTO  NextQues

QC:
GOSUB GetAnswer
  PRINT "  A club you belong to has decided to put on a play. You would prefer:"
  PRINT
  PRINT "  f1) to be an actor."
  PRINT "  f5) to be a director."
  PRINT "  f3) to work behind the scenes."
GOTO  NextQues

QD:
GOSUB GetAnswer
  PRINT "  If you worked as an engineer which position would you prefer?"
  PRINT
  PRINT "  f1) to be a manager of other engineers"
  PRINT "  f3) to work in product design to make products that are safe and help people"
  PRINT "  f5) to work in the scientific part of engineering that deals with facts"
  PRINT "      rather than people"
GOTO  NextQues

QE:
GOSUB GetAnswer
  PRINT "  What do you usually do after having sex?"
  PRINT
  PRINT "  f5) find something to read and read until you fall asleep"
  PRINT "  f3) eat and/or smoke"
  PRINT "  f1) roll over and go to sleep"
GOTO  NextQues

QF:
GOSUB GetAnswer
  PRINT "  During the first months of a new love affair you:"
  PRINT
  PRINT "  f1) try every sexual position you can think of"
  PRINT "  f3) try unusual positions only if your partner suggests them"
  PRINT "  f5) never do anything unusual or kinky"
GOTO  NextQues

QG:
GOSUB GetAnswer
  PRINT "  Which situation would you least like to be in?"
  PRINT
  PRINT "  f5) you have done something nasty and selfish."
  PRINT "  f3) you are expected to more than you are able to do."
  PRINT "  f1) you've gone to a big party and you are being ignored by everyone."
GOTO  NextQues

QH:
GOSUB GetAnswer
  PRINT "  How do you feel about sex?"
  PRINT
  PRINT "  f5) it is an act ordained by higher powers and is mainly for the purpose of"
  PRINT "      reproduction."
  PRINT "  f3) because of the deep emotions involved it is dangerous and must be"
  PRINT "      handled with a great deal of care."
  PRINT "  f1) sex is for pleasure and there is no reason not to do it."
GOTO  NextQues

QI:
GOSUB GetAnswer
  PRINT "  Someone you've been going with for a few months has dropped you in favor of"
  PRINT "  someone else.  You feel:"
  PRINT
  PRINT "  f5) worried because other people will think this reflects badly on your"
  PRINT "      personality"
  PRINT "  f1) that your former friend has made a bad decision that he or she will be"
  PRINT "      sorry for eventually"
  PRINT "  f3) deserted"
GOTO  NextQues

QJ:
GOSUB GetAnswer
  PRINT "  When you sleep with another person you:"
  PRINT
  PRINT "  f3) wear pyjamas"
  PRINT "  f1) sleep nude"
  PRINT "  f5) wear your underwear"
GOTO  NextQues

QK:
GOSUB GetAnswer
  PRINT "  You and a neighbor you don't care too for got drunk at a party, came home,"
  PRINT "  and made love. You have ignored your neighbor and every time the neighbor"
  PRINT "  acts friendly you feel guilty."
  PRINT
  PRINT "  f5) you feel this guilt is normal since you are a sensitive and moral person."
  PRINT "  f3) finally you can't stand the guilt and do something nice for the neighbor"
  PRINT "      so he or she won't feel rejected."
  PRINT "  f1) you have no real problem with the guilt but you do worry about the rest"
  PRINT "      of the neighbors finding out about the affair."
GOTO  NextQues

QL:
GOSUB GetAnswer
  PRINT "  You are eating with friends and the group gets into a wild discussion about"
  PRINT "  political candidates."
  PRINT
  PRINT "  f1) you let your opinion be known and even try to control the conversation"
  PRINT "      to make sure that everyone knows that you are right."
  PRINT "  f3) you say nothing until you find out who the favored candidate is. you"
  PRINT "      would not want to offend your friends."
  PRINT "  f5) while you may not have definite feelings about the candidates you think"
  PRINT "      your friends are stupid since they are emotionally talking about what"
  PRINT "      should be logical issues."
GOTO  NextQues

QM:
GOSUB GetAnswer
  PRINT "  You and your spouse are going to buy a new bed. You want a:"
  PRINT
  PRINT "  f5) bed that will let you sleep as comfortably as possible."
  PRINT "  f3) regular sized bed since it assures closeness and body contact."
  PRINT "  f1) a king-sized bed since there is a lot of room to play on it and it"
  PRINT "      would look good in the bedroom."
GOTO  NextQues

QN:
GOSUB GetAnswer
  PRINT "  In talking politics with friends you say you really like a certain"
  PRINT "  candidate.  Nobody else likes the candidate and you are told you are"
  PRINT  "  stupid.  You react by:"
  PRINT
  PRINT "  f1) thinking they are really the stupid ones."
  PRINT "  f5) bringing up your candidate's strong points until you are convinced"
  PRINT "      you have corrected their stupid opinions."
  PRINT "  f3) deciding you should have kept quiet."
GOTO  NextQues

QO:
GOSUB GetAnswer
  PRINT "  Which of the following statements could best be used to insult you?"
  PRINT
  PRINT "  f3) you are unable to make your own decisions and rely on other to"
  PRINT  "     make them for you!"
  PRINT "  f5) you are a humorless, stodgy, inflexible person!"
  PRINT "  f1) you are conceited and have a size three soul with a size eight ego!"
GOTO  NextQues

QP:
GOSUB GetAnswer
  PRINT "  Which of the following is the key to having a successful marriage?"
  PRINT
  PRINT "  f1) the ability to get through troubles by keeping cool and using finesse"
  PRINT "  f3) the ability to compromise to keep the relationship healthy."
  PRINT "  f5) finding the right person to start with and then always being loyal and"
  PRINT "      faithful"
GOTO  NextQues

QR:
GOSUB GetAnswer
  PRINT "  A friend has made you angry. How do you handle the situation?"
  PRINT
  PRINT "  f1) you immediately express your anger but leave enough of an opening"
  PRINT "      so you don't have to lose your friend."
  PRINT "  f3) you try not to say anything. If you do say anything you make it clear"
  PRINT "      that you're only defending yourself since you have been hurt badly."
  PRINT "  f5) before you express any anger you make sure your anger has a moral"
  PRINT "      rather than emotional backing."
GOTO  NextQues

QS:
GOSUB GetAnswer
  PRINT "  Your idea of an ideal wedding ring is:"
  PRINT
  PRINT "  f1) a distinctive ring that will easily be noticed by others"
  PRINT "  f3) one that matches your spouse's ring"
  PRINT "  f5) you really don't want to wear a ring"
GOTO  NextQues

QT:
GOSUB GetAnswer
  PRINT "  You have a bad cold and have just failed your driver's license test."
  PRINT "  How do you feel about the failure?"
  PRINT
  PRINT "  f5) my sickness is no excuse. I should have worked at this enough so"
  PRINT "      that my sickness wouldn't have mattered."
  PRINT "  f3) I guess I would have failed even if I hadn't been sick. I just"
  PRINT "      didn't practice enough before the test."
  PRINT "  f1) I would have passed if I hadn't been sick."
GOTO  NextQues

QU:
GOSUB GetAnswer
  PRINT "  If your marriage failed which of these reasons would be the probable"
  PRINT "  cause of the failure?"
  PRINT
  PRINT "  f5) your spouse is simply too unreliable and independent."
  PRINT "  f1) sexually you need more than just one other person."
  PRINT "  f3) your spouse will simply eventually become tired of you and leave."
GOTO  NextQues

QV:
GOSUB GetAnswer
  PRINT "  You want to go to the movies but your friends remind you that you promised"
  PRINT "  to help them paint their living room. You keep your promise because:"
  PRINT
  PRINT "  f1) you want to show them what a good person you are""
  PRINT "  f3) you don't want to get into a fight"
  PRINT "  f5) promises must always be kept"
GOTO  NextQues

QW:
GOSUB GetAnswer
  PRINT "  In looking for a spouse which of these people would you choose?"
  PRINT
  PRINT "  f5) someone who is able to clearly think about important issues and problems"
  PRINT "  f3) someone who can take care of you and any children you may have"
  PRINT "  f1) someone who is good socially and who can adapt well to such things as"
  PRINT "      job changes and promotions"
GOTO  NextQues

QX:
GOSUB GetAnswer
  PRINT "  It's time for your yearly dental checkup"
  PRINT
  PRINT "  f3) you decide to make an appointment but you never actually do it."
  PRINT "  f1) you make an appointment because you don't want to be like the stupid"
  PRINT "      people who lose their teeth while still young."
  PRINT "  f5) you make an appointment since this sets a good example for friends"
  PRINT "      and children."
GOTO  NextQues

QY:
GOSUB GetAnswer
  PRINT "  You are out of work and in desperate need of a job.  Suddenly two"
  PRINT "  job offers come through. both jobs pay the same. the one you take"
  PRINT "  is the one that:"
  PRINT
  PRINT "  f3) best fits your abilities and provides the best security."
  PRINT "  f1) gives you more power and a higher social standing."
  PRINT "  f5) best fits your moral and ethical values."
GOTO  NextQues

QAA:
GOSUB GetAnswer
  PRINT "  Which of these people would you prefer to have a long friendship with?"
  PRINT
  PRINT "  f5) a person who is willing to change in order to meet your needs"
  PRINT "  f3) a person who doesn't have any serious faults that you can find"
  PRINT "  f1) a person who never criticizes you and thinks you're perfect"
GOTO  NextQues

QAB:
GOSUB GetAnswer
  PRINT "  In general you feel that your neighbors:"
  PRINT
  PRINT "  f5) are rather shallow and not able to to handle serious social or moral"
  PRINT "       problems."
  PRINT "  f1) have a high opinion of you since the good qualities you have"
  PRINT "      impress them."
  PRINT "  f3) are better able to survive in the world than you are."
GOTO  NextQues

QAC:
GOSUB GetAnswer
  PRINT "  You've written a letter to the editor of your local newspaper.  The"
  PRINT "  letter has been published on the editorial page.  Under the letter"
  PRINT "  is the editor's comment that the letter has obviously been written "
  PRINT "  by an idiot and it has been published for its humor value."
  PRINT
  PRINT "  f1) you feel angry since the editor is obviously an idiot."
  PRINT "  f3) you are humiliated that you have written such a stupid letter."
  PRINT "  f5) you know your letter had good points and decide to take up the"
  PRINT "      matter with the newspaper's manager and owner."
GOTO  NextQues

QAD:
GOSUB GetAnswer
  PRINT "  You have to have minor surgery and are frightened about the whole thing."
  PRINT "  As you enter the operating room you notice you have broken out in a cold"
  PRINT "  sweat from fear."
  PRINT
  PRINT "  f5) you become very angry with yourself since you are reacting childishly"
  PRINT "      to something that has to be done."
  PRINT "  f3) you hope the medical people will see that you really are afraid and"
  PRINT "      be very gentle with you."
  PRINT "  f1) you decide this is just a natural reaction and hope that nobody notices."
GOTO  NextQues

QAE:
GOSUB GetAnswer
  PRINT "  Which is closest to your feelings about nonconformists?"
  PRINT
  PRINT "  f3) you have sympathy for them.  Actually they are just reacting against"
  PRINT "      a hard and cruel world."
  PRINT "  f1) you tolerate them and tend to think they are a little humorous."
  PRINT "  f5) you are critical of them and feel something should be done to"
  PRINT "      straighten them out."
GOTO  NextQues

QAF:
GOSUB GetAnswer
  PRINT "  Which best describes your childhood?"
  PRINT
  PRINT "  f1) at home I was the center of attention"
  PRINT "  f3) I could usually get my own way if I was insistent enough"
  PRINT "  f5) I was rewarded when I behaved well"
GOTO  NextQues

QAG:
GOSUB GetAnswer
  PRINT "  You are visiting a friend who lives in another city.  You have both been"
  PRINT "  invited to a party. You want to make a good impression on the party guests"
  PRINT "  so you try to show:"
  PRINT
  PRINT "  f1) qualities of being a leader and a good socializer"
  PRINT "  f3) qualities of being friendly and not offensive"
  PRINT "  f5) qualities of having integrity and being sincere"
GOTO  NextQues

QAH:
GOSUB GetAnswer
  PRINT "  Your best friend tells you that the only people who are successful in life"
  PRINT "  are the ones who are not afraid to be aggressive.  You react by:"
  PRINT
  PRINT "  f5) general agreement but say such behavior is acceptable only if a"
  PRINT "      reputation for being pushy isn't established"
  PRINT "  f3) being turned off by the idea and wondering if your friend is putting"
  PRINT "      down your sympathetic pleasant behavior"
  PRINT "  f1) full agreement since this is usually the way you act"
GOTO  NextQues

QAI:
GOSUB GetAnswer
  PRINT "  Your spouse is very impressed by the star of the movie you've just seen."
  PRINT "  You react by:"
  PRINT
  PRINT "  f1) telling your spouse that in real life the star is a very horrible person"
  PRINT "  f3) saying nothing but wishing you were more like the star"
  PRINT "  f5) telling your spouse it's stupid to be impressed when nothing is known";
  PRINT "      about what the star is like as a human being"
GOTO  NextQues

QAJ:
GOSUB GetAnswer
  PRINT "  Your friend is buying a new car and has brought you along to the automobile"
  PRINT "  showroom. you start thinking about getting a new car. Your main thoughts are:"
  PRINT
  PRINT "  f3) about how much new cars cost"
  PRINT "  f5) about whether you really need to get a new car"
  PRINT "  f1) about how distinctive and sporty the cars look
GOTO  NextQues

QAK:
GOSUB GetAnswer
  PRINT "  Which of the following people would you most like to have for a friend?"
  PRINT
  PRINT "  f1) someone with very good looks and good social skills"
  PRINT "  f3) someone who is sympathetic and loyal and is very supportive of you"
  PRINT "  f5) someone who is not very demanding and lets you do pretty much whatever"
  PRINT "      you want to do"
GOTO  NextQues

QAL:
GOSUB GetAnswer
  PRINT "  Which is more important to you?"
  PRINT
  PRINT "  f5) integrity and honor"
  PRINT "  f3) friendship and love"
  PRINT "  f1) success and winning"
GOTO  NextQues

QAM:
GOSUB GetAnswer
  PRINT "  You hear on the news that a person you know (though not very well) has"
  PRINT "  received an award for outstanding community service.  You feel:"
  PRINT
  PRINT "  f1) that you are just as good a person as he or she is"
  PRINT "  f3) somewhat depressed because you have not achieved nearly as much"
  PRINT "  f5) he or she got the award by opportunism since you personally know"
  PRINT "      this person has several character defects"
GOTO  NextQues

QAN:
GOSUB GetAnswer
  PRINT "  For many married couples there is loss of sexual interest after a few years"
  PRINT "  of marriage.  Why do you think this happens?"
  PRINT
  PRINT "  f5) married life is certainly much more than sex and other things in the"
  PRINT "      relationship become more important than sex."
  PRINT "  f3) nothing lasts forever so it's reasonable to expect the lack of interest"
  PRINT "      as time goes on."
  PRINT "  f1) the old adage that familiarity breeds contempt (or at least"
  PRINT "       indifference) is true."
GOTO  NextQues

QAO:
GOSUB GetAnswer
  PRINT "  How would your best friend describe you?"
  PRINT
  PRINT "  f1) a fine person with a lot of leadership potential"
  PRINT "  f3) a nice person who unfortunately gets gets pushed around a lot"
  PRINT "  f5) an individualistic person with good senses of honor and fair-mindedness"
GOTO  NextQues

QAP:
GOSUB GetAnswer
  PRINT "  Your date at a party has left you and has been talking to another guest"
  PRINT "  for almost an hour."
  PRINT
  PRINT "  f5) this doesn't bother you too much."
  PRINT "  f3) you feel deserted."
  PRINT "  f1) you wonder what your date sees in the fool."
GOTO  NextQues

QAQ:
GOSUB GetAnswer
  PRINT "  In the grocery store you've finished shopping and head for the checkout"
  PRINT "  line.  Someone slips into the line just ahead of you."
  PRINT
  PRINT "  f1) you immediately tell the idiot that you were there first and to get"
  PRINT "      behind you in the line."
  PRINT "  f3) you don't say anything since the person probably started turning into"
  PRINT "      the line before you did."
  PRINT "  f5) you are angry and disturbed by the line jumper but don't say anything"
  PRINT "      to avoid making a public spectacle over such a minor issue."
GOTO  NextQues

QAR:
GOSUB GetAnswer
  PRINT "  One of your neighbors is unfriendly toward you even though you have never"
  PRINT "  knowingly done anything to give offense."
  PRINT
  PRINT "  f3) you decide that you have unknowingly done something offensive."
  PRINT "  f5) you are a little angry. if there is a problem the neighbor should"
  PRINT "      confront you with it rather than acting like a sulky child."
  PRINT "  f1) you go to the neighbor and say,'you always seem unfriendly.  If I've"
  PRINT "      done something that offends you please tell me now.'"
GOTO  NextQues

QAS:
GOSUB GetAnswer
  PRINT "  To make the best possible first impression on people which of these are"
  PRINT "  the best to project?"
  PRINT
  PRINT "  f1) good physical appearance and charm"
  PRINT "  f3) an attitude of being helpful and friendly"
  PRINT "  f5) an image of being honest and sincere";
GOTO  NextQues

QAT:
GOSUB GetAnswer
  PRINT "  You're going to go to the airport to pick up a friend you haven't seen in"
  PRINT "  a few years.  Before you leave you use the bathroom, look in the bathroom"
  PRINT "  mirror, and:"
  PRINT
  PRINT "  f3) wish that you looked a little better and were the right weight."
  PRINT "  f1) are satisfied with the way you look which fortunately is better than"
  PRINT "      most other people look."
  PRINT "  f5) you don't think much about what you look like, you just do whatever you"
  PRINT "      need to do such as comb your hair, wash, etc."
GOTO  NextQues

QAU:
GOSUB GetAnswer
  PRINT "  It's been a few weeks since you started a new job and nobody has asked you"
  PRINT "  to eat lunch with them. you feel:"
  PRINT
  PRINT "  f1) that your outstanding work makes them a little afraid of you."
  PRINT "  f3) that you've done something terribly wrong somewhere."
  PRINT "  f5) that it's nothing to worry about since you really haven't any use for"
  PRINT "      these people anyway."
GOTO  NextQues

QAV:
GOSUB GetAnswer
  PRINT "  You and your spouse are invited to an orgy. You turn down the offer because:"
  PRINT
  PRINT "  f1) even though it's tempting there could be a scandal involved with it and"
  PRINT "      you wouldn't want to be involved."
  PRINT "  f3) even though it's tempting it could be a bad influence on your"
  PRINT "      relationship."
  PRINT "  f5) that kind of thing is sick and perverted."
GOTO  NextQues

QAW:
GOSUB GetAnswer
  PRINT "  You're on vacation in the Bahamas.  After being on the beach for several"
  PRINT "  hours you put on the new clothes you bought and go to the bar of your hotel."
  PRINT
  PRINT "  f3) you immediately wonder if your clothes fit the occasion."
  PRINT "  f5) you soon go back to the beach to get away from the noisy drunks"
  PRINT "      in the bar."
  PRINT "  f1) you think that people have immediately noticed you because of you good"
  PRINT "      appearance."
GOTO  NextQues

QAX:
GOSUB GetAnswer
  PRINT "  You're attending a party where most of the guests are members of the local"
  PRINT "  high society.   You don't know any of them."
  PRINT
  PRINT "  f5) actually you feel such people are not too interesting since their talk"
  PRINT "      seems rather brainless and shallow."
  PRINT "  f1) you try hard to make a good impression by using your charm and wit in"
  PRINT "      conversation."
  PRINT "  f3) you try not to stand out or appear aggressive."
  PRINT
  COLOR 3,0
  PRINT  SPACE$(23)"--> THIS IS THE LAST QUESTION <--"
  COLOR 1,0
  GOTO  NextQues
END

GetAnswer:
  PRINT
  IF a%(C)=0 THEN
    CLS
    LOCATE 2,1
    PRINT SPACE$(35)"Question";C;""
    PRINT
    RETURN
  END IF
  PRINT SPACE$(35)"Question";C
  COLOR 3,0
  PRINT  "YOUR ANSWER WAS ";
  IF a%(C)=4 THEN  PRINT "f1"
  IF a%(C)=5 THEN  PRINT "f3"
  IF a%(C)=6 THEN  PRINT "f5"
  COLOR 1,0
  RETURN

NextQues:
  LINE (70,150)-(140,180),2,bf
  LINE (210,150)-(280,180),2,bf
  LINE (350,150)-(420,180),2,bf
  LINE (490,150)-(560,180),2,bf
  LINE (70,150)-(140,180),3,b
  LINE (210,150)-(280,180),3,b
  LINE (350,150)-(420,180),3,b
  LINE (490,150)-(560,180),3,b

  IF rv=1 THEN  GOTO  Continue
  LOCATE 15,1
  PRINT "               Press the f keys to give the computer your answer."
  PRINT "                    Press the HELP key for special commands."
  PRINT "                    Or click the mouse on the squares below."
  COLOR 1,2
  LOCATE 21,13: PRINT  "F1"
  LOCATE 21,31: PRINT  "F3"
  LOCATE 21,48: PRINT  "F5"
  LOCATE 21,65: PRINT  "HELP"
  COLOR 1,0

HoldLoop:
  IF MOUSE(0) <> 0 THEN GOTO Rodent
  Pk$ = INKEY$
  IF  Pk$ = "" THEN HoldLoop
  Pk = ASC(Pk$ + CHR$(0))

  Evaluate:
  IF MOUSE(0) <> 0 THEN Evaluate
  IF Pk=129 THEN a%(C)=4: GOTO Pointer
  IF Pk=131 THEN a%(C)=5: GOTO Pointer
  IF Pk=133 THEN a%(C)=6: GOTO Pointer
  IF Pk<>139 THEN HoldLoop

    Helper:
    WINDOW 3, "SPECIAL SERVICES",(100,50)-(540,150),0,2
    WINDOW OUTPUT 3
    COLOR 3,0
    LOCATE 2,1
    PRINT "  Press S to skip this question"
    PRINT
    PRINT "  Press B to go back a question"
    PRINT
    PRINT "  Press F to find unanswered questions"
    PRINT
    PRINT "  Press E to end and score this test"

Special:
  Pk$ = INKEY$
  IF  Pk$ = "" THEN Special
  Pk$ = UCASE$(Pk$)
  IF Pk$ = "S" THEN
    GOSUB CloseIt
    GOTO Pointer
  END IF

  IF Pk$ = "B" THEN
    C=C-2
    GOSUB CloseIt
    CLS
    GOTO  Pointer
  END IF
  IF Pk$ = "E" THEN C=C-1: GOTO  EndIt
  IF Pk$ = "F" THEN C=C-1: GOTO  Unanswered
  GOTO Special

Pointer:
C=C+1
 IF C<1 THEN C=48
 IF C>48 THEN Helper
 IF C<13 THEN p=C:GOTO  Transfer
 IF C>12 AND C<25 THEN p=C-12: GOTO  TransferA
 IF C>24 AND C<37 THEN p=C-24: GOTO  TransferB
 IF C>36 THEN p=C-36: GOTO  TransferC

Transfer:
  ON p GOTO QA,QB,QC,QD,QE,QF,QG,QH,QI,QJ,QK,QL
TransferA:
  ON p GOTO QM,QN,QO,QP,QR,QS,QT,QU,QV,QW,QX,QY
TransferB:
  ON p GOTO QAA,QAB,QAC,QAD,QAE,QAF,QAG,QAH,QAI,QAJ,QAK,QAL
TransferC:
  ON p GOTO QAM,QAN,QAO,QAP,QAQ,QAR,QAS,QAT,QAU,QAV,QAW,QAX

Unanswered:
 CLS
 PRINT "the following questions have not been answered:"
 fl=0
 FOR j=1 TO 48
   IF a%(j)=0 THEN fl=1:  PRINT j,
 NEXT
 IF fl=1 THEN GoBack
   PRINT "You have answered every question. Press the RETURN key"
   ReturnWait:
    IF INKEY$ <> CHR$(13) THEN ReturnWait
    GOTO  Transfer

GoBack:
 PRINT :  PRINT "Enter the number of the question you"
 PRINT "want to go to then press the RETURN key."
 INPUT Rn
   IF Rn < 1 OR Rn > 48 THEN GoBack
   GOSUB CloseIt
   C = Rn-1
   GOTO Pointer

EndIt:
  CLS
  tl=0
  FOR j=1 TO 48
    IF a%(j)=0 THEN tl=tl+1
  NEXT
  IF tl>0 THEN   PRINT "  You have left";tl;"unanswered questions."
  PRINT
  PRINT "If you are certain you want the test to end then type"
  PRINT "the word END and press the RETURN key. If you do NOT"
  PRINT "want the test to end then type the word NO and press"
  PRINT "the RETURN key."

Loop:
 PRINT
 INPUT "  Type END or NO   ";E$
 E$ = UCASE$(E$)
 IF  E$="NO" THEN
   GOSUB CloseIt
   GOTO Pointer
 END IF
 IF E$<>"END" THEN
    PRINT "Please try again. I can only respond to END or NO."
    GOTO Loop
 END IF
 GOSUB CloseIt
 CLS
 FOR j=1 TO 48
   IF a%(j)=0 THEN ua=ua+1
   IF a%(j)=4 THEN s1=s1+1
   IF a%(j)=5 THEN s2=s2+1
   IF a%(j)=6 THEN s3=s3+1
 NEXT
 IF ua=0 THEN Skip
 IF ua=1 THEN   PRINT "1 unanswered question"
 IF ua>1 THEN   PRINT ua;"unanswered questions"

Skip:
  GOSUB CloseIt
  LOCATE 3,1
  PRINT "  Copy these numbers on paper. They are important!"
  PRINT
  PRINT "  f1 =";s1,"f3 =";s2,"f5 =";s3
  PRINT
  PRINT  "  The documentation that came with this program will explain your results."
  PRINT
  PRINT  "  Press the RETURN key to clear the computer."
  Killer:
    IF INKEY$ <> CHR$(13) THEN Killer

    WINDOW CLOSE 2
    SCREEN CLOSE 2
    END

Rodent:  'mouse input
  IF MOUSE(2) < 150 OR MOUSE(2) > 180 THEN HoldLoop
  IF MOUSE(1) > 70 AND MOUSE (1) < 140 THEN Pk=129: GOTO Evaluate
  IF MOUSE(1) > 210 AND MOUSE (1) < 280 THEN Pk=131: GOTO Evaluate
  IF MOUSE(1) > 350 AND MOUSE (1) < 420 THEN Pk=133: GOTO Evaluate
  IF MOUSE(1) > 490 AND MOUSE (1) < 560 THEN Pk=139: GOTO Evaluate
  GOTO HoldLoop

CloseIt: 'close Help screen
   WINDOW CLOSE 3
   WINDOW OUTPUT 2
   COLOR 1,0
   RETURN